home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / emacssrc.arc / EGAPC.C < prev    next >
Encoding:
C/C++ Source or Header  |  1987-02-16  |  7.2 KB  |  356 lines
  1. /*
  2.  * The routines in this file provide support for the IBM-PC EGA and other
  3.  * compatible terminals. It goes directly to the graphics RAM to do
  4.  * screen output. It compiles into nothing if not an IBM-PC EGA driver
  5.  */
  6.  
  7. #define    termdef    1            /* don't define "term" external */
  8.  
  9. #include        <stdio.h>
  10. #include    "estruct.h"
  11. #include        "edef.h"
  12.  
  13. #if     EGA
  14.  
  15. #define NROW    43                      /* Screen size.                 */
  16. #define NCOL    80                      /* Edit if you want to.         */
  17. #define    MARGIN    8            /* size of minimim margin and    */
  18. #define    SCRSIZ    64            /* scroll size for extended lines */
  19. #define    NPAUSE    200            /* # times thru update to pause */
  20. #define BEL     0x07                    /* BEL character.               */
  21. #define ESC     0x1B                    /* ESC character.               */
  22. #define    SPACE    32            /* space character        */
  23. #define    SCADD    0xb8000000L        /* address of screen RAM    */
  24.  
  25. int *scptr[NROW];            /* pointer to screen lines    */
  26. int sline[NCOL];            /* screen line image        */
  27.  
  28. extern  int     ttopen();               /* Forward references.          */
  29. extern  int     ttgetc();
  30. extern  int     ttputc();
  31. extern  int     ttflush();
  32. extern  int     ttclose();
  33. extern    int    egakopen();
  34. extern    int    egakclose();
  35. extern  int     egamove();
  36. extern  int     egaeeol();
  37. extern  int     egaeeop();
  38. extern  int     egabeep();
  39. extern  int     egaopen();
  40. extern    int    egarev();
  41. extern    int    egacres();
  42. extern    int    egaclose();
  43. extern    int    egaputc();
  44.  
  45. #if    COLOR
  46. extern    int    egafcol();
  47. extern    int    egabcol();
  48.  
  49. int    cfcolor = -1;        /* current forground color */
  50. int    cbcolor = -1;        /* current background color */
  51. int    ctrans[] =        /* ansi to ega color translation table */
  52.     {0, 4, 2, 6, 1, 5, 3, 7};
  53. #endif
  54.  
  55. /*
  56.  * Standard terminal interface dispatch table. Most of the fields point into
  57.  * "termio" code.
  58.  */
  59. TERM    term    = {
  60.     NROW-1,
  61.         NROW-1,
  62.         NCOL,
  63.         NCOL,
  64.     MARGIN,
  65.     SCRSIZ,
  66.     NPAUSE,
  67.         egaopen,
  68.         egaclose,
  69.     egakopen,
  70.     egakclose,
  71.         ttgetc,
  72.     egaputc,
  73.         ttflush,
  74.         egamove,
  75.         egaeeol,
  76.         egaeeop,
  77.         egabeep,
  78.     egarev,
  79.     egacres
  80. #if    COLOR
  81.     , egafcol,
  82.     egabcol
  83. #endif
  84. };
  85.  
  86. extern union REGS rg;
  87.  
  88. #if    COLOR
  89. egafcol(color)        /* set the current output color */
  90.  
  91. int color;    /* color to set */
  92.  
  93. {
  94.     cfcolor = ctrans[color];
  95. }
  96.  
  97. egabcol(color)        /* set the current background color */
  98.  
  99. int color;    /* color to set */
  100.  
  101. {
  102.         cbcolor = ctrans[color];
  103. }
  104. #endif
  105.  
  106. egamove(row, col)
  107. {
  108.     rg.h.ah = 2;        /* set cursor position function code */
  109.     rg.h.dl = col;
  110.     rg.h.dh = row;
  111.     rg.h.bh = 0;        /* set screen page number */
  112.     int86(0x10, &rg, &rg);
  113. }
  114.  
  115. egaeeol()    /* erase to the end of the line */
  116.  
  117. {
  118.     int attr;    /* attribute byte mask to place in RAM */
  119.     int *lnptr;    /* pointer to the destination line */
  120.     int i;
  121.     int ccol;    /* current column cursor lives */
  122.     int crow;    /*       row    */
  123.  
  124.     /* find the current cursor position */
  125.     rg.h.ah = 3;        /* read cursor position function code */
  126.     rg.h.bh = 0;        /* current video page */
  127.     int86(0x10, &rg, &rg);
  128.     ccol = rg.h.dl;        /* record current column */
  129.     crow = rg.h.dh;        /* and row */
  130.  
  131.     /* build the attribute byte and setup the screen pointer */
  132. #if    COLOR
  133.     attr = (((cbcolor & 15) << 4) | (cfcolor & 15)) << 8;
  134. #else
  135.     attr = 0x0700;
  136. #endif
  137.     lnptr = &sline[0];
  138.     for (i=0; i < NCOL; i++)
  139.         *lnptr++ = SPACE | attr;
  140.  
  141.     if (flickcode) {
  142.         /* wait for vertical retrace to be off */
  143.         while ((inp(0x3da) & 8))
  144.             ;
  145.  
  146.         /* and to be back on */
  147.         while ((inp(0x3da) & 8) == 0)
  148.             ;
  149.     }
  150.  
  151.     /* and send the string out */
  152.     movmem(&sline[0], scptr[crow]+ccol, (NCOL-ccol)*2);
  153.  
  154. }
  155.  
  156. egaputc(ch)    /* put a character at the current position in the
  157.            current colors */
  158.  
  159. int ch;
  160.  
  161. {
  162.     rg.h.ah = 14;        /* write char to screen with current attrs */
  163.     rg.h.al = ch;
  164. #if    COLOR
  165.     rg.h.bl = cfcolor;
  166. #else
  167.     rg.h.bl = 0x07;
  168. #endif
  169.     int86(0x10, &rg, &rg);
  170. }
  171.  
  172. egaeeop()
  173. {
  174.     int attr;        /* attribute to fill screen with */
  175.  
  176.     rg.h.ah = 6;        /* scroll page up function code */
  177.     rg.h.al = 0;        /* # lines to scroll (clear it) */
  178.     rg.x.cx = 0;        /* upper left corner of scroll */
  179.     rg.x.dx = 0x2a4f;    /* lower right corner of scroll */
  180. #if    COLOR
  181.     attr = ((ctrans[gbcolor] & 15) << 4) | (ctrans[gfcolor] & 15);
  182. #else
  183.     attr = 0;
  184. #endif
  185.     rg.h.bh = attr;
  186.     int86(0x10, &rg, &rg);
  187. }
  188.  
  189. egarev(state)        /* change reverse video state */
  190.  
  191. int state;    /* TRUE = reverse, FALSE = normal */
  192.  
  193. {
  194.     /* This never gets used under the ega-PC driver */
  195. }
  196.  
  197. egacres()    /* change screen resolution */
  198.  
  199. {
  200.     return(TRUE);
  201. }
  202.  
  203. spal()    /* reset the pallette registers */
  204.  
  205. {
  206.     /* nothin here now..... */
  207. }
  208.  
  209. egabeep()
  210. {
  211.     bdos(6, BEL, 0);
  212. }
  213.  
  214. egaopen()
  215. {
  216.     char buf;    /* buffer for peek/poke */
  217.  
  218.     /* initialize pointers to the screen ram */
  219.     scinit();
  220.  
  221.     /* and put the beast into EGA 43 row mode */
  222.     rg.x.ax = 3;
  223.     int86(0x10, &rg, &rg);
  224.  
  225.     rg.x.ax = 0x1112;
  226.     rg.h.bl = 0;
  227.     int86(0x10, &rg, &rg);
  228.  
  229.     peek(0x40, 0x87, &buf, 1);
  230.     buf |= 1;
  231.     poke(0x40, 0x87, &buf, 1);
  232.     buf = 0xf8;
  233.     poke(0x40, 0x88, &buf, 1);
  234.  
  235.     rg.x.ax = 0x0100;
  236.     rg.h.bh = 0;
  237.     rg.x.cx = 0x0007;
  238.     int86(0x10, &rg, &rg);
  239.  
  240.     buf = 0xf9;
  241.     poke(0x40, 0x88, &buf, 1);
  242.  
  243.     strcpy(sres, "43LINE");
  244.     revexist = TRUE;
  245.         ttopen();
  246. }
  247.  
  248. egaclose()
  249.  
  250. {
  251.     char buf;    /* buffer for peek/poke */
  252.  
  253. #if    COLOR
  254.     egafcol(7);
  255.     egabcol(0);
  256. #endif
  257.     /* and put the beast into 80 column mode */
  258.     rg.x.ax = 0002;
  259.     int86(0x10, &rg, &rg);
  260.     ttclose();
  261.  
  262. #if    0
  263.     peek(0x40, 0x87, &buf, 1);
  264.     buf--;
  265.     poke(0x40, 0x87, &buf, 1);
  266. #endif
  267.  
  268.     /* and restore the normal cursor */
  269.     rg.x.ax = 0x0100;
  270.     rg.h.bl = 0;
  271.     rg.x.cx = 0x0b0d;
  272.     int86(0x10, &rg, &rg);
  273.  
  274.     /* and fix the BIOS's bug here */
  275.     outp(0x3d4, 10);
  276.     outp(0x3d5, 6);
  277. }
  278.  
  279. egakopen()
  280.  
  281. {
  282. }
  283.  
  284. egakclose()
  285.  
  286. {
  287. }
  288.  
  289. scinit()    /* initialize the screen head pointers */
  290.  
  291. {
  292.     union {
  293.         long laddr;    /* long form of address */
  294.         int *paddr;    /* pointer form of address */
  295.     } addr;
  296.     int i;
  297.  
  298.     /* initialize the screen pointer array */
  299.     for (i = 0; i < NROW; i++) {
  300.         addr.laddr = SCADD + (long)(NCOL * i * 2);
  301.         scptr[i] = addr.paddr;
  302.     }
  303. }
  304.  
  305. scwrite(row, outstr, forg, bacg)    /* write a line out*/
  306.  
  307. int row;    /* row of screen to place outstr on */
  308. char *outstr;    /* string to write out (must be NCOL long) */
  309. int forg;    /* forground color of string to write */
  310. int bacg;    /* background color */
  311.  
  312. {
  313.     int attr;    /* attribute byte mask to place in RAM */
  314.     int *lnptr;    /* pointer to the destination line */
  315.     int i;
  316.  
  317.     /* build the attribute byte and setup the screen pointer */
  318. #if    COLOR
  319.     attr = (((ctrans[bacg] & 15) << 4) | (ctrans[forg] & 15)) << 8;
  320. #else
  321.     attr = (((bacg & 15) << 4) | (forg & 15)) << 8;
  322. #endif
  323.     lnptr = &sline[0];
  324.     for (i=0; i<term.t_ncol; i++)
  325.         *lnptr++ = (outstr[i] & 255) | attr;
  326.  
  327.     if (flickcode) {
  328.         /* wait for vertical retrace to be off */
  329.         while ((inp(0x3da) & 8))
  330.             ;
  331.  
  332.         /* and to be back on */
  333.         while ((inp(0x3da) & 8) == 0)
  334.             ;
  335.     }
  336.  
  337.     /* and send the string out */
  338.     movmem(&sline[0], scptr[row],term.t_ncol*2);
  339. }
  340.  
  341. #if    FLABEL
  342. fnclabel(f, n)        /* label a function key */
  343.  
  344. int f,n;    /* default flag, numeric argument [unused] */
  345.  
  346. {
  347.     /* on machines with no function keys...don't bother */
  348.     return(TRUE);
  349. }
  350. #endif
  351. #else
  352. egahello()
  353. {
  354. }
  355. #endif
  356.